home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac 1 / CD-ROM N°1.iso / Utilitaires / Programmation⁄Infos / UCB Logo 3.0 / logolib / pon < prev    next >
Encoding:
Text File  |  1994-04-25  |  153 b   |  10 lines  |  [TEXT/JV01]
  1. to pon :names
  2. ignore error
  3. catch "error [po namelist :names]
  4. local "err
  5. make "err error
  6. if not emptyp :err [(throw "error first bf :err)]
  7. end
  8.  
  9. bury "pon
  10.